home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / hypercrd / xcmd / sprtxtrn.sea / Support Tools eXternals 1.2.5 / card_16487.txt < prev    next >
Text File  |  1990-11-13  |  4KB  |  142 lines
  1. -- card: 16487 from stack: in.5
  2. -- bmap block id: 14156
  3. -- flags: 0000
  4. -- background id: 3858
  5. -- name: AppleLinkAddrBk
  6. ----- HyperTalk script -----
  7. on CloseCard
  8.   put empty into cd fld "Address list"
  9.   set the scroll of cd fld "Address list" to 0
  10.   pass closeCard
  11. end CloseCard
  12.  
  13. on HideObjects
  14.   hide cd fld "Address list"
  15.   hide cd btn "Addresses"
  16.   hide cd btn "Entries"
  17.   hide cd btn "Both"
  18. end HideObjects
  19.  
  20. on ShowObjects
  21.   show cd fld "Address list"
  22.   show cd btn "Addresses"
  23.   show cd btn "Entries"
  24.   show cd btn "Both"
  25. end ShowObjects
  26.  
  27.  
  28. -- part 2 (button)
  29. -- low flags: 00
  30. -- high flags: A002
  31. -- rect: left=9 top=292 right=326 bottom=87
  32. -- title width / last selected line: 0
  33. -- icon id / first selected line: 0 / 0
  34. -- text alignment: 1
  35. -- font id: 0
  36. -- text size: 12
  37. -- style flags: 8192
  38. -- line height: 16
  39. -- part name: Entries
  40. ----- HyperTalk script -----
  41. on mouseUp
  42.   global errGlobal
  43.   put AppleLinkAddrBk("Entries","noDialog:errGlobal") into addressList
  44.   if errGlobal Γëá empty then
  45.     answer "Error: ΓÇ£" & errGlobal & "ΓÇ¥"
  46.     put empty into errGlobal
  47.   else
  48.     put addressList into cd fld "Address list"
  49.   end if
  50. end mouseUp
  51.  
  52.  
  53.  
  54.  
  55. -- part 3 (field)
  56. -- low flags: 00
  57. -- high flags: 0007
  58. -- rect: left=8 top=117 right=288 bottom=252
  59. -- title width / last selected line: 0
  60. -- icon id / first selected line: 0 / 0
  61. -- text alignment: 0
  62. -- font id: 4
  63. -- text size: 9
  64. -- style flags: 0
  65. -- line height: 12
  66. -- part name: Address List
  67.  
  68.  
  69. -- part 4 (button)
  70. -- low flags: 00
  71. -- high flags: A002
  72. -- rect: left=92 top=292 right=326 bottom=170
  73. -- title width / last selected line: 0
  74. -- icon id / first selected line: 0 / 0
  75. -- text alignment: 1
  76. -- font id: 0
  77. -- text size: 12
  78. -- style flags: 8192
  79. -- line height: 16
  80. -- part name: Addresses
  81. ----- HyperTalk script -----
  82. on mouseUp
  83.   global errGlobal
  84.   put AppleLinkAddrBk("Addresses","noDialog:errGlobal") into addressList
  85.   if errGlobal Γëá empty then
  86.     answer "Error: ΓÇ£" & errGlobal & "ΓÇ¥"
  87.     put empty into errGlobal
  88.   else
  89.     put addressList into cd fld "Address list"
  90.   end if
  91. end mouseUp
  92.  
  93.  
  94.  
  95.  
  96. -- part 5 (button)
  97. -- low flags: 00
  98. -- high flags: A002
  99. -- rect: left=174 top=292 right=326 bottom=252
  100. -- title width / last selected line: 0
  101. -- icon id / first selected line: 0 / 0
  102. -- text alignment: 1
  103. -- font id: 0
  104. -- text size: 12
  105. -- style flags: 8192
  106. -- line height: 16
  107. -- part name: Both
  108. ----- HyperTalk script -----
  109. on mouseUp
  110.   global errGlobal
  111.   put AppleLinkAddrBk("Both", "noDialog:errGlobal") into addressList
  112.   if errGlobal Γëá empty then
  113.     answer "Error: ΓÇ£" & errGlobal & "ΓÇ¥"
  114.     put empty into errGlobal
  115.   else
  116.     put addressList into cd fld "Address list"
  117.   end if
  118. end mouseUp
  119.  
  120.  
  121.  
  122.  
  123. -- part contents for background part 38
  124. ----- text -----
  125. 1/50
  126.  
  127. -- part contents for background part 20
  128. ----- text -----
  129.      XFCN to return the contents of the AppleLink address book in the ΓÇ£AppleLink OutbasketΓÇ¥ folder in the system folder.
  130.  
  131. AddressBook(ΓÇ£AddressesΓÇ¥|ΓÇ£EntriesΓÇ¥|ΓÇ£BothΓÇ¥,<ΓÇ£noDialog:ΓÇ¥errorGlobal>)
  132.  
  133. ADDRESSES: return the list of addresses only,
  134. ie ΓÇ£CYNIC <CR> SKEPTICΓÇ¥
  135.  
  136. ENTRIES: return the list of entries only,
  137. ie ΓÇ£eric carlson <CR> anup murarkaΓÇ¥
  138.  
  139. BOTH: return the ENTRIES, <tab> ,   ADDRESSES, ie ΓÇ£eric carlson <CR> anup murarka <CR> <TAB> CYNIC <CR> SKEPTICΓÇ¥
  140.  
  141. This seemingly unusual (OK, unusual) scheme is used because a person can make "group addresses" by choosing the "Edit Address Book" menu item in AppleLink.  Any number of addresses can be group under a label, seperated by commas (and optionally spaces).   Additonally, any label can be used for an address book entry, not just the label supplied by AppleLink. 
  142.